
 
 v 1   =   0 
 
 
 
 L a b e l   L o o p 
 
 	 S e l e c t   v 1 
 
 	 	 '   - - - - - - - - - - - - - - - - - - - - - -   a t t e s a   p u l s a n t e   n o n   p r e m u t o 
 
 	 	 C a s e   0 
 
 	 	 	 I f   S l o t ( 1 )   <   5 0 0 
 
 	 	 	 	 v 1   =   1 
 
 	 	 	 E n d I f 
 
 	 	 '   - - - - - - - - - - - - - - - - - - - - - -   a t t e s a   p u l s a n t e   p r e m u t o 
 
 	 	 C a s e   1 
 
 	 	 	 I f   S l o t ( 1 )   >   5 0 0 
 
 	 	 	 	 v 1   =   2 
 
 	 	 	 E n d I f 
 
         	 '   - - - - - - - - - - - - - - - - - - - - - -   i l   p u l s a n t e     s t a t o   p r e m u t o 
 
 	 	 C a s e   2 
 
 	 	 	 v 1   =   0 
 
 	 	 	 '   - - - - - - - - - - - - - - - - - -   a c c e n d o   o   s p e n g o 
 
 	 	 	 I f   S l o t ( 2 )   <   5 0 0 
 
 	 	 	 	 S l o t ( 2 )   =   1 0 0 0 
 
 	 	 	 E l s e 
 
 	 	 	 	 S l o t ( 2 )   =   0 
 
 	 	 	 E n d I f 
 
 	 E n d S e l e c t 
 
 G o t o   L o o p 
 
 
 
 
 
 